Dim sRoleName
Dim sAdmittanceGateways

sRoleName = "TestSetRole"
sAdmittanceGateways = "127.0.0.1,192.168.0.1,"

'======================================================
  Dim sRoles
  Set OBJ = CreateObject("ActivCard.Authority")

  msgbox OBJ.AddRole( sRoleName, sAdmittanceGateways )

  OBJ.GetRoles( sRoles )
  msgbox sRoles

  Set OBJ = Nothing